home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 116 / 116.d81 / secret identity (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  13.9 KB  |  499 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 goto8001
  3. 20 rem -- sir mix a lot --
  4. 30 qt=qt+1:ifqt>n%thenqt=1
  5. 32 rn%=rnd(1)*(n%-qt+1)+qt:a$=qt$(qt):b$=an$(qt)
  6. 35 qt$(qt)=qt$(rn%):an$(qt)=an$(rn%)
  7. 40 qt$(rn%)=a$:an$(rn%)=b$
  8. 45 return
  9. 46 rem -- print question --
  10. 50 print"[154]what@is@the@secret@identity@of..."
  11. 55 fori=1to6:ch$(i)="":next
  12. 60 cn%=(rnd(1)*6+1):ch$(cn%)=an$(qt)
  13. 65 fori=1to6:ifch$(i)<>""then90
  14. 70 rn%=rnd(1)*n%+1:ifan$(rn%)=an$(qt)then70
  15. 75 fl=0:forj=1toi:ifch$(j)=an$(rn%)thenfl=1:j=i
  16. 80 next:ifflthen70
  17. 85 ch$(i)=an$(rn%)
  18. 90 next
  19. 91 print"[154]"qt$(qt)"?"
  20. 92 poke214,2:print
  21. 94 fori=1to6:printtab(6)"[158]"ch$(i):next
  22. 96 print"[154]press@a@key@(1-6)@@press@(q)@to@quit"
  23. 98 return
  24. 100 rem -- game screen --
  25. 110 poke53280,0:poke53281,.:poke53283,2
  26. 115 poke53265,peek(53265)or64
  27. 120 print"[147]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  28. 130 print"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  29. 140 print"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  30. 150 print"______________________________________"
  31. 160 fori=1to6
  32. 170 print"^^^^^^^^^^^^^^^^^^^^^"
  33. 180 print"[153]"i"[157][157][157]@@[158]@@@@@@@@@@@@@@@@@@"
  34. 190 print"___[129]__________________"
  35. 200 next
  36. 210 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  37. 220 print"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  38. 230 print"______________________________________"
  39. 240 poke214,4:print
  40. 250 fori=1to4
  41. 260 printtab(25)"^^^^^^^^^^^^^"
  42. 270 printtab(25)"[150]@@@@@@@@@@@@@"
  43. 280 printtab(25)"[150]@@@@@@@@@@@@@"
  44. 290 printtab(25)"_____________"
  45. 300 next
  46. 310 poke214,5:print
  47. 320 printtab(27)"[150]question#"
  48. 325 printtab(30)"000"
  49. 330 printtab(26)"point@value"
  50. 335 printtab(29)"00000"
  51. 340 printtab(29)"score"
  52. 345 printtab(29)"00000"
  53. 350 printtab(32-len(nm$)/2)""nm$
  54. 355 printtab(29)"00000[145]"
  55. 360 a$=str$(ts):printtab(35-len(a$))"[150]"right$(a$,len(a$)-1)
  56. 370 return
  57. 400 rem -- question number --
  58. 410 poke214,6:print
  59. 420 a$=str$(qn):printtab(34-len(a$))"[150]"right$(a$,len(a$)-1)
  60. 430 return
  61. 450 rem -- point value --
  62. 460 poke214,10:print
  63. 470 a$=str$(pv):printtab(35-len(a$))"[150]"right$(a$,len(a$)-1)
  64. 480 return
  65. 500 rem -- score --
  66. 510 poke214,14:print
  67. 520 a$=str$(sc):printtab(35-len(a$))"[150]"right$(a$,len(a$)-1)
  68. 530 return
  69. 600 rem -- erase --
  70. 610 print"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  71. 620 fori=1to6:printtab(6)"[158]@@@@@@@@@@@@@@@@":next
  72. 630 print"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  73. 640 return
  74. 650 rem -- quit --
  75. 660 poke214,22:print
  76. 665 print" @@@@@@do@you@want@to@quit?@(y/n)@@@@@@[145]"
  77. 670 geta$:ifa$="y"then15010
  78. 680 ifa$<>"n"then670
  79. 685 print" @press@a@key@(1-6)@@press@(q)@to@quit@"
  80. 690 goto2020
  81. 700 rem -- highlight correct answer --
  82. 710 poke214,cn%*3+2:print"[158]"
  83. 720 fori=1to2
  84. 730 printtab(6)"[145]"an$(qt):gosub1410:forde=1to250:next
  85. 740 printtab(6)"[145]"an$(qt):forde=1to200:next
  86. 750 next
  87. 760 printtab(6)"[145]"an$(qt):gosub1410:forde=1to800:next
  88. 770 return
  89. 775 :
  90. 780 poke214,cn%*3+2:print
  91. 785 printtab(6)"[145][158]"an$(qt):gosub1230
  92. 786 return
  93. 790 rem -- bonus prompt --
  94. 792 poke214,22:print
  95. 793 print"[154] @@bonus@if@you@answer@next@question!"
  96. 794 forde=1to1500:next
  97. 798 return
  98. 800 rem -- the questioner --
  99. 810 printtab(tb)"[192][193][194]";
  100. 820 printspc(36)"[195][196][154][197][198][199]";
  101. 830 printspc(34)"[200][201][202][203][204][205][206]";
  102. 840 printspc(33)"[207][208][209][210][211][212][213]";
  103. 850 printspc(32)"[214][215][216][217] [218][219][220][221]";
  104. 860 printspc(31)"[255][223][161][162] [163][164][165][166]";
  105. 870 printspc(31)"[167][168][169][170][171][172][173][174][175]";
  106. 880 printspc(31)"[176][177][178][179] [180][181][182][183]";
  107. 890 printspc(31)"[184][185][186][187] [188][189][190][191]";
  108. 900 printspc(31)"[192][193][194][195][196][197][198][199][200]";
  109. 910 printspc(32)"[201][202][160][160][160][203][204]"
  110. 920 return
  111. 950 rem -- right hook --
  112. 960 poke214,8:print""
  113. 970 printtab(21)" [205][206][207][146][204][205][206]"
  114. 980 printtab(21)"[208][209][210][211][146][211][212][213]"
  115. 990 printtab(20)" [212][213][214][146] [218][219][220][221]"
  116. 1000 printtab(20)" [215][216][146][162] [163][164][165][166]"
  117. 1010 printtab(20)" [217][146][169][170][171][172][173][174][175]"
  118. 1020 return
  119. 1050 rem -- left hook --
  120. 1060 poke214,8:print""
  121. 1070 printtab(21)"[200][201][202][218][219][220][160]"
  122. 1080 printtab(21)"[207][208][209][221][255][223][161]"
  123. 1090 printtab(20)"[214][215][216][217] [162][163][164][160]"
  124. 1100 printtab(20)"[255][223][161][162] [163][165][166][160]"
  125. 1110 printtab(20)"[167][168][169][170][171][172][173][167][160]"
  126. 1120 return
  127. 1200 rem -- clear sid chip --
  128. 1210 fori=.to24:pokes+i,.:next:return
  129. 1220 rem -- correct sound --
  130. 1230 pokes+24,15:pokes+6,225:pokes+4,17
  131. 1240 fori=1to7:forde=1to180step20
  132. 1250 pokes+1,de:next:next
  133. 1260 pokes+4,0:return
  134. 1300 rem -- wrong sound --
  135. 1310 pokes+24,15:pokes+5,129:pokes+6,129
  136. 1320 pokes+3,145:pokes+4,33:pokes+1,14
  137. 1330 forde=1to100:next
  138. 1340 fori=14to3step-1
  139. 1350 pokes+1,i:forde=.to18:next
  140. 1360 next:pokes+4,32
  141. 1370 return
  142. 1400 rem -- bell --
  143. 1410 pokes+2,.:pokes+3,8:pokes+5,.:pokes+6,252
  144. 1420 pokes+24,7:pokes,134:pokes+1,20
  145. 1430 pokes+4,65:forde=.to100:next
  146. 1440 pokes+4,64:return
  147. 1450 rem -- thwack --
  148. 1460 pokes+24,15:pokes+1,rnd(1)*20+10
  149. 1470 pokes+5,20:pokes+6,0:pokes+4,129
  150. 1480 forde=.to50:next:pokes+4,0
  151. 1490 return
  152. 1500 rem -- beep --
  153. 1510 pokes+1,50:pokes+6,240:pokes+24,15
  154. 1520 pokes+4,17:forde=1to300:next
  155. 1530 pokes+4,0:return
  156. 1600 rem -- a new high score! --
  157. 1610 fori=1to3:forj=1to3
  158. 1620 pokes+5,62:pokes+6,48
  159. 1630 pokes+1,j*3+6:pokes,54
  160. 1640 pokes+4,33:forde=1to108:next
  161. 1650 pokes+4,32::forde=1to10:next
  162. 1660 next:next:return
  163. 1900 rem --- check drive ---
  164. 1910 open15,dv,15,"r0:"+f$+"="+f$:input#15,er:close15
  165. 1920 return
  166. 2000 rem -- main --
  167. 2010 ifbg=3thengosub1510:gosub792
  168. 2015 gosub30:gosub410:gosub460:gosub510:gosub50
  169. 2020 geta$:ifa$<"1"ora$>"6"anda$<>"q"then2020
  170. 2025 ifa$="q"then660
  171. 2030 an=val(a$):ifch$(an)=an$(qt)then2110
  172. 2040 rem -- wrong answer --
  173. 2050 gosub1310:gosub710:pv=50:bg=0
  174. 2060 poke214,10:print:printtab(29)"[150]00050"
  175. 2070 goto2200
  176. 2100 rem -- correct answer --
  177. 2110 gosub780:sc=sc+pv:gosub510:pv=pv+50
  178. 2115 forde=1to1000:next
  179. 2120 bg=bg+1:ifbg=4thenbg=0:gosub4010
  180. 2200 qn=qn+1:ifqn>20then6010
  181. 2210 gosub610:goto2010
  182. 4000 rem -- bonus screen --
  183. 4010 poke53280,0:poke53281,0:print"[147]"
  184. 4020 poke53265,peek(53265)and191
  185. 4030 print" [160]oops![160]"
  186. 4040 c$="[156][150][129][158][159][153]"
  187. 4050 fori=1to7
  188. 4060 printmid$(c$,i,1)" [160][160][160][160][160][160][160]"
  189. 4070 print" [160]"bn$(i*3)"[160]"
  190. 4080 printmid$(c$,i,1)" [160][160][160][160][160][160][160]"
  191. 4090 next
  192. 4100 print" [155][160]start[160]\"
  193. 4110 printtab(16)"[158][160]the[160]bonus[160]game![160]"
  194. 4120 printtab(13)"^^^^^^^^^^^^^^^^^^^^^^^"
  195. 4130 printtab(13)"[154][160]"chr$(34)"press[160]down[160]spacebar"chr$(34)"[160]"
  196. 4140 printtab(13)"_______________________"
  197. 4150 poke214,18:print
  198. 4160 printtab(13)"^^^^^^^^^^^^^^^^^^^^^^^"
  199. 4170 printtab(13)"[154][160]"chr$(34)"release[160]when[160]ready!"chr$(34)"[160]"
  200. 4180 printtab(13)"_______________________"
  201. 4190 printtab(16)"[150][160][160]bonus[160]=[160]00000[160][160]"
  202. 4200 poke214,6:print:tb=23:gosub810
  203. 4210 bn=22:ifpeek(197)<>60then4210
  204. 4220 bn=bn-1:ifbn<0thenbn=0
  205. 4230 forde=1to70:next
  206. 4240 ifpeek(197)=60then4220
  207. 4250 fori=21tobnstep-1
  208. 4260 x=-(x=0):ifxthengosub1060:goto4280
  209. 4270 gosub960
  210. 4280 poke214,i:print:printtab(8)" [145][157]\"
  211. 4290 poke214,22:print"[150]"
  212. 4300 printtab(31-len(bn$(i)))bn$(i)
  213. 4310 gosub1460:poke214,6:print
  214. 4320 gosub810:forde=1to100:next
  215. 4330 next
  216. 4400 b$=bn$(i+1):bn=val(b$):ifbn=0thengosub1310:goto4420
  217. 4410 gosub1230
  218. 4420 forde=1to2000:next
  219. 4430 ifprthenreturn
  220. 4440 rem -- print bonus --
  221. 4445 gosub110:gosub410:gosub460:gosub510
  222. 4450 ifbn=0thenreturn
  223. 4460 poke214,10:print
  224. 4470 fori=1to3:printtab(13)"[159]@@@@@@@@@@@@@@":next
  225. 4480 printtab(14)"[145][145]bonus@=@"right$(b$,len(b$)-1):forde=1to500:next
  226. 4490 pokes+6,200:pokes+1,0:pokes+24,15
  227. 4500 fori=10tobnstep10:pokes+4,17:pokes+1,i/10:sc=sc+10:gosub510:pokes+4,0:next
  228. 4510 gosub1230:forde=1to500:next
  229. 4520 poke214,10:print
  230. 4530 printtab(13)"[158]@@@@@@@@@@  [150]@@"
  231. 4540 printtab(13)"[129]__________  __"
  232. 4550 printtab(13)"^^^^^^^^^^  ^^"
  233. 4560 return
  234. 6000 rem -- game over --
  235. 6010 poke53281,.:poke53280,6:print"[147]"
  236. 6020 poke53265,peek(53265)and191
  237. 6030 ifsc<=tsthen15010
  238. 6040 rem -- a new high score --
  239. 6050 ts=sc:nm$="":gosub1610
  240. 6060 poke214,6:print
  241. 6070 printtab(12)"[150]congratulations!"
  242. 6080 printtab(8)"[158]you[160]beat[160]the[160]high[160]score!"
  243. 6090 printtab(13)"^^^^^^^^^^^^^^"
  244. 6100 printtab(13)"[154][160]*[160][160][160][160][160][160][160][160][160][160][160][160]"
  245. 6110 printtab(13)"______________"
  246. 6120 printtab(10)"[153]type[160]your[160]first[160]name"
  247. 6130 printtab(11)"[159]then[160]press[160]return!"
  248. 6200 rem -- get name --
  249. 6210 poke214,11:print
  250. 6220 printtab(14)"[154]*[157]";
  251. 6230 geta$:ifa$<>""then6230
  252. 6240 geta$:ifa$=""then6240
  253. 6250 ifa$=chr$(20)andlen(nm$)thennm$=left$(nm$,len(nm$)-1):print"[157][160]":goto6290
  254. 6260 ifa$=chr$(13)andlen(nm$)thenprint"[157][160]":goto6400
  255. 6270 ifa$<"a"ora$>"z"orlen(nm$)>10then6240
  256. 6280 nm$=nm$+a$
  257. 6290 poke214,11:print:printtab(14)nm$"*";:goto6240
  258. 6400 printtab(9)"[160][160][160][160][160]saving[160]score...[160][160]"
  259. 6410 open15,dv,15,"s0:secret.high":close15
  260. 6420 open8,dv,8,"secret.high,p,w"
  261. 6430 print#8,nm$:print#8,ts
  262. 6450 close8:goto15010
  263. 8000 rem -- title screen --
  264. 8001 poke56578,peek(56578)or3
  265. 8002 poke56576,(peek(56576)and252)
  266. 8003 poke53272,(peek(53272)and15)or32
  267. 8004 poke53272,(peek(53272)and240)or12
  268. 8005 poke648,200:poke53265,peek(53265)and191
  269. 8010 poke53281,0:poke53280,0:print"[147]"
  270. 8020 printtab(9)"who[160]is[160]the[160]masked[160]man?"
  271. 8030 printtab(13)"what[160]is[160]his..."
  272. 8040 printtab(5)"[158][168][169][168][169][168][169][176][169][168][169][178][179][180][160][184][176][169][168][169][185][186][178][179][180][184][178][179][180][184][184]"
  273. 8050 printtab(5)"[170][169][172][173][175][174][181][182][172][173][160][175][160][160][175][175][175][172][173][189][190][160][175][160][175][160][175][160][170][191]"
  274. 8060 printtab(5)"[170][171][170][171][170][171][183][183][170][171][160][183][160][160][183][177][171][170][171][187][188][160][183][160][183][160][183][160][170][171]"
  275. 8070 printtab(8)"featuring"
  276. 8080 printtab(4)"the[160]vigilante[160]hero"
  277. 8090 printtab(9)"t[160][160]h[160][160]e"
  278. 8100 printtab(3)"[154][168][169][184][184][168][169][168][169][178][179][180][184][168][169][185][186][168][169][176][169]"
  279. 8110 printtab(3)"[175][175][175][175][172][173][170][169][160][175][160][175][175][175][189][190][172][173][181][182]"
  280. 8120 printtab(3)"[170] [170][171][170][171][170][171][160][183][160][183][170][171][187][188][170][171][183][183]"
  281. 8130 printtab(3)"[159]created[160]by[160]tony[160]rose"
  282. 8140 printtab(3)"[156]when[160]confronted[160]by[160]the[160]questioner,"
  283. 8150 printtab(5)"pray[160]you[160]have...the[160]answers!!!"
  284. 8160 printtab(10)"[150]one[160]moment[160]please..."
  285. 8170 poke214,7:print:tb=30:gosub810
  286. 10000 rem -- initialize --
  287. 10010 dimi,j,fl,de,qn,an,sc,ts,pv,rn%,cn%,tb,bn,bg,pr,a$,b$
  288. 10020 nm$="empty":n%=108:s=54272:x=rnd(-ti)
  289. 10030 f$="secret.high":gosub1910
  290. 10040 ifer<>63thennm$="---------":ts=0:goto10100
  291. 10050 open8,dv,8,"secret.high"
  292. 10060 input#8,nm$:input#8,ts:close8
  293. 10100 dimqt$(200),an$(200),ch$(6),bn$(21)
  294. 10110 fori=1ton%:readqt$(i),an$(i):next
  295. 10130 fori=.to21:readbn$(i):next
  296. 10200 gosub1210:gosub1410
  297. 10205 poke214,22:print
  298. 10210 printtab(9)"[150]press[160]any[160]key[160]to[160]begin"
  299. 10220 geta$:ifa$=""then10220
  300. 15000 rem -- options --
  301. 15010 qn=1:sc=0:pv=50:bg=0:pr=0
  302. 15020 poke53281,.:poke53280,0:print"[147]"
  303. 15025 poke53265,peek(53265)and191
  304. 15030 poke214,4:print
  305. 15040 printtab(6)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  306. 15050 printtab(6)"[154][160][160][160][160][160][160][160]secret[160]options[160][160][160][160][160][160][160]"
  307. 15060 printtab(6)"____________________________"
  308. 15070 printtab(6)"[158][160]1[160] play[160]secret[160]identity"
  309. 15080 printtab(6)"[158][160]2[160] [159]practice[160]the[160]bonus[160]game"
  310. 15090 printtab(6)"[158][160]3[160] [156]read[160]some[160]nonsense"
  311. 15100 printtab(6)"[158][160]4[160] [150]adios[160]amigos"
  312. 15110 printtab(6)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  313. 15120 printtab(6)"[154][160][160][160][160][160]press[160]a[160]key:[160](1-4)[160][160][160][160][160]"
  314. 15130 printtab(6)"____________________________"
  315. 15200 geta$:ifa$<"1"ora$>"4"then15200
  316. 15210 ifa$="1"thengosub110:goto2010
  317. 15220 ifa$="2"thenpr=1:gosub4010:goto15010
  318. 15230 ifa$="3"thengosub40010:goto15010
  319. 15235 ifsc>tsthen6010
  320. 15240 poke214,17:print
  321. 15250 printtab(7)"[154]do[160]you[160]want[160]to[160]quit?[160](y/n)[145]"
  322. 15260 geta$:ifa$="n"then15120
  323. 15270 ifa$<>"y"then15260
  324. 15400 poke56578,peek(56578)or3
  325. 15410 poke56576,(peek(56576)and252)or3
  326. 15420 poke53272,21:poke648,4:print"[147]"
  327. 15430 goto60000
  328. 20000 rem -- questions & answers --
  329. 20010 dataalbion,peter@hunter
  330. 20020 datathe@amazing@spiderman,peter@parker
  331. 20030 dataambush@bug,irwin@schwab,ganja@man,fender@tucker
  332. 20035 dataazrael,jean@paul@valley
  333. 20040 dataaqualad,garth
  334. 20050 dataaquaman,arthur@curry
  335. 20060 datathe@atom,raymond@palmer
  336. 20070 databaron@blood,victor@strange
  337. 20080 datathe@batman,bruce@wayne
  338. 20090 datathe@beast,henry@mccoy
  339. 20100 datathe@black@knight,dane@whitman
  340. 20110 datablack@lightning,jefferson@pierce
  341. 20120 datathe@black@panther,t'challa
  342. 20130 databouncing@boy,chuck@taine
  343. 20140 databrainiac@5,queri@dox
  344. 20150 datacable,nathan@dayspring
  345. 20160 datacannonball,samuel@guthrie
  346. 20170 datacaptain@america,steve@rogers
  347. 20180 datacaptain@britain,brian@braddock
  348. 20190 datacaptain@comet,adam@blake
  349. 20200 datacaptain@marvel,billy@batson
  350. 20210 datachameleon@boy,reep@daggle
  351. 20220 datathe@changeling,garfield@logan
  352. 20230 datachemical@king,condo@arlik
  353. 20240 datacloak,tyrone@johnson
  354. 20250 datacolossal@boy,gim@allon
  355. 20255 datacolossus,peter@rasputin
  356. 20260 datacommander@steel,henry@heywood
  357. 20270 datacosmic@boy,rokk@krinn
  358. 20280 datathe@crimson@avenger,lee@travis
  359. 20290 datacyborg,victor@stone
  360. 20300 datacyclops,scott@summers
  361. 20310 datadaredevil,matt@murdock
  362. 20320 datadarkhawk,chris@powell
  363. 20330 datadeadman,boston@brand
  364. 20340 datadoctor@fate,kent@nelson
  365. 20350 datadoctor@mid-nite,charles@mcnider
  366. 20360 datadoctor@strange,stephen@strange
  367. 20365 dataelement@lad,jan@arrah
  368. 20370 dataelongated@man,ralph@dibney
  369. 20380 datathe@falcon,sam@wilson
  370. 20390 datathe@flash,barry@allen
  371. 20395 datagambit,remy@lebeau
  372. 20400 dataghost@rider,danny@ketch
  373. 20405 datagreen@arrow,oliver@queen
  374. 20410 datagreen@lantern,hal@jordan
  375. 20420 datahavok,alex@summers
  376. 20430 datahawkeye,clint@barton
  377. 20435 datahawkman,katar@hol
  378. 20440 datathe@incredible@hulk,bruce@banner
  379. 20450 datathe@human@torch,johnny@storm
  380. 20460 dataiceman,bobby@drake
  381. 20470 datainvisible@kid,lyle@norg
  382. 20475 datairon@fist,daniel@rand
  383. 20480 datathe@invincible@iron@man,anthony@stark
  384. 20490 datakarate@kid,val@armorr
  385. 20500 datakid@flash,wally@west
  386. 20510 datalightning@lad,garth@ranzz
  387. 20515 datamartian@manhunter,j'onn@j'onzz
  388. 20520 datamatter-eater@lad,tenzil@kem
  389. 20540 datamoon@knight,marc@spector
  390. 20550 datamister@fantastic,reed@richards
  391. 20560 datamultiple@man,jamie@madrox
  392. 20570 datanightcrawler,kurt@wagner
  393. 20580 datanighthawk,kyle@richmond
  394. 20590 datanightwing,dick@grayson
  395. 20592 datanomad,jack@monroe
  396. 20595 datapower@man,luke@cage
  397. 20600 datapuck,eugene@judd
  398. 20610 datathe@punisher,frank@castle
  399. 20620 datathe@punisher@2099,jake@gallows
  400. 20630 dataquasar,wendell@vaughn
  401. 20635 dataquicksilver,pietro@maximoff
  402. 20640 datathe@red@tornado,john@smith
  403. 20645 datarobin@(the@3rd@version),timothy@drake
  404. 20650 datasandman,wesley@dodd
  405. 20655 datashadowman,jack@boniface
  406. 20660 datathe@silver@surfer,norrin@radd
  407. 20665 dataspawn,al@simmons
  408. 20670 datathe@spectre,jim@corrigan
  409. 20680 dataspiderman@2099,miguel@o'hara
  410. 20690 datastar@boy,thom@kallor
  411. 20700 datathe@sub-mariner,namor
  412. 20710 datasun@boy,dirk@morgna
  413. 20715 datasunspot,roberto@dacosta
  414. 20720 datasuperman,clark@kent
  415. 20725 dataswamp@thing,alec@holland
  416. 20730 datathe@thing,benjamin@grimm
  417. 20732 datathe@mighty@thor,donald@blake
  418. 20735 datathunderstrike,eric@masterson
  419. 20740 datatimber@wolf,brin@londo
  420. 20750 dataultra@boy,jo@nah
  421. 20760 datau.s.agent,john@walker
  422. 20770 datavenom,eddie@brock
  423. 20780 datawar@machine,james@rhodes
  424. 20782 datawarpath,james@proudstar
  425. 20785 datathe@watcher,uatu
  426. 20787 datawolverine,logan,the@man@called@nova,richard@ryder
  427. 20788 datawonder@man,simon@williams
  428. 20790 datayellowjacket,henry@pym
  429. 20800 dataicon,augustus@freeman,hardware,curtis@metcalf,static,virgil@hawkins
  430. 20810 dataprime,kevin@green,the@vision,the@human@torch,skyrider,jeff@jones
  431. 30010 rem -- bonus data --
  432. 30020 data00000,01000,01000,01000,00750,00750,00750,00500,00500,00500,00400
  433. 30030 data00400,00400,00300,00300,00300,00200,00200,00200,00100,00100,00100
  434. 40000 rem -- instructions --
  435. 40010 poke53281,0:poke53280,0:print"[147]"
  436. 40020 print"       [150]^^^^^^^^^^^^^^^^^^^^^^^^^^"
  437. 40030 print"       [156][160]your[160]secret[160]instructions[160]"
  438. 40040 print"       __________________________"
  439. 40050 poke214,20:print
  440. 40060 print"       [150]^^^^^^^^^^^^^^^^^^^^^^^^^^"
  441. 40070 print"       [156][160]press[160]return[160]to[160]continue[160]"
  442. 40080 print"       __________________________"
  443. 40090 poke214,4:print"[159]"
  444. 40100 print"   this[160]quiz/game[160]will[160]test[160]your"
  445. 40110 print" knowledge[160]of[160]comic-book[160]heroes[160]and"
  446. 40120 print" their[160]secret[160]identities.[160][160]each[160]game"
  447. 40130 print" consists[160]of[160]20[160][159]questions.[160][160]the[160]point"
  448. 40140 print" value[160]for[160]each[160]question[160]begins[160]at[160]50"
  449. 40150 print" [159]and[160]will[160]increase[160]by[160]50[160][159]each[160]time[160]you"
  450. 40160 print" [159]answer[160]correctly.[160][160]however,[160]if[160]you"
  451. 40170 print" miss[160]a[160]question,[160]the[160]point[160]value[160]will"
  452. 40180 print" return[160]to[160]50[159]."
  453. 40190 print"   also,[160]if[160]you[160]correctly[160]answer[160]4[159]"
  454. 40200 print" questions[160]in[160]a[160]row,[160]you[160]get[160]a[160]chance"
  455. 40210 print" to[160]earn[160]bonus[160]points[160]by[160]casting[160]aside"
  456. 40220 print" your[160]role[160]as[160]a[160]questionee,[160]and[160]instead"
  457. 40230 print" you[160]will[160]become...[160]the[160]questioner!!!"
  458. 40240 geta$:ifa$<>chr$(13)then40240
  459. 40250 fori=19to5step-1:poke781,i:sys59903:next
  460. 40260 poke214,4:print"[159]"
  461. 40270 print"   the[160]questioner[160]is[160]a[160]hero/vigilante"
  462. 40280 print" who[160]wages[160]war[160]on[160]the[160]vast[160]array[160]of"
  463. 40290 print" evil-doers[160]terrorizing[160]star[160]town.[160][160]in"
  464. 40300 print" the[160]bonus[160]game[160]the[160]questioner[160]has[160]just"
  465. 40310 print" apprehended[160]a[160]member[160]of[160]a[160]secret"
  466. 40320 print" organization[160]that[160]has[160]been[160]illegally"
  467. 40330 print" distributing[160]tower[160]disks.[160][160]in[160]order[160]to"
  468. 40340 print" learn[160]more[160]information[160]about[160]this"
  469. 40350 print" dastardly[160]group,[160]the[160]member[160]must[160]now"
  470. 40360 print" be[160]er,[160]"chr$(34)"questioned"chr$(34)"."
  471. 40370 print"   okay,[160]so[160]what[160]exactly[160]is[160]your[160]role"
  472. 40380 print" in[160]all[160]of[160]this?[160][160]quite[160]simply,[160]you"
  473. 40390 print" will[160]determine[160]the[160]amount[160]of[160]force"
  474. 40400 print" used[160]in[160]the[160]"chr$(34)"questioning"chr$(34)"."
  475. 40410 geta$:ifa$<>chr$(13)then40410
  476. 40420 fori=19to5step-1:poke781,i:sys59903:next
  477. 40430 poke214,4:print"[159]"
  478. 40440 print"   you[160]will[160]determine[160]this[160]by[160]pressing"
  479. 40450 print" and[160]then[160]releasing[160]the[160]spacebar[159].[160][160]the"
  480. 40460 print" longer[160]you[160]wait[160]before[160]releasing[160]the"
  481. 40470 print" spacebar,[160]the[160]more[160]force[160]the"
  482. 40480 print" questioner[160]will[160]use[160]--[160]and[160]the[160]more"
  483. 40490 print" information[160]the[160]member[160]will[160]reveal"
  484. 40500 print" (i.e.[160]you[160]get[160]more[160]bonus[160]points)."
  485. 40510 print"   however,[160]"chr$(34)"dead[160]men[160]tell[160]no[160]tales!"chr$(34)
  486. 40530 print" so[160]if[160]you[160]use[160]too[160]much[160]force,[160]you[160]will"
  487. 40540 print" not[160]get[160]any[160]bonus[160]points."
  488. 40550 print"   even[160]if[160]comics[160]isn't[160]your[160]bailiwick,"
  489. 40560 print" you[160]can[160]still[160]check[160]out[160]the[160]bonus[160]game"
  490. 40570 print" by[160]pressing[160]2[160][159]at[160]the[160]options[160]menu."
  491. 40580 geta$:ifa$<>chr$(13)then40580
  492. 40590 return
  493. 60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  494. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  495. 60020 next:print"[147]":poke186,8:end
  496. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  497. 60040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  498. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  499.